home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / FONT-80.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.5 KB  |  39 lines
  1. 10  SCREEN 1 : KEY OFF : CLS
  2. 11  CLEAR ,20000,1000
  3. 12  DEF SEG = 0 : POKE &H7D,&HBC             ' BUFFER STARTS AT 47K
  4. 13  POINTER = &HBC00
  5. 14  '
  6. 15  '
  7. 16  '*****************************************************************
  8. 17  '**     TRS-80 FONT      **  IN SCREEN 1 OR 2 - THIS PROGRAM    **
  9. 18  '**                      **  WILL CREATE THE GRAPHICS OF THE    **
  10. 19  '**     VERSION  1.1     **  TRS-80.  CHR$(128) TO CHR$(191)    **
  11. 20  '**                      **  IT THEN POINTS THE FONT DATA       **
  12. 21  '**     JUNE 14,1982     **  POINTER AT THE START OF THE TABLE  **
  13. 22  '*****************************************************************
  14. 23  '
  15. 24  '
  16. 100  FOR X = 0 TO 63
  17. 110  CHARACTER = X
  18. 120  LINE3 = 0 : LINE2 = 0 : LINE1 = 0
  19. 130  IF (CHARACTER > 31) THEN LINE3 = LINE3 + 15  :CHARACTER = CHARACTER - 32
  20. 140  IF (CHARACTER > 15) THEN LINE3 = LINE3 + 240 :CHARACTER = CHARACTER - 16
  21. 150  IF (CHARACTER > 7) THEN LINE2 = LINE2 + 15   :CHARACTER = CHARACTER - 8
  22. 160  IF (CHARACTER > 3) THEN LINE2 = LINE2 + 240  :CHARACTER = CHARACTER - 4
  23. 170  IF (CHARACTER > 1) THEN LINE1 = LINE1 + 15   :CHARACTER = CHARACTER - 2
  24. 180  IF (CHARACTER = 1) THEN LINE1 = LINE1 + 240
  25. 190  POKE POINTER+0,LINE1
  26. 200  POKE POINTER+1,LINE1
  27. 210  POKE POINTER+2,LINE1
  28. 220  POKE POINTER+3,LINE2
  29. 230  POKE POINTER+4,LINE2
  30. 240  POKE POINTER+5,LINE3
  31. 250  POKE POINTER+6,LINE3
  32. 260  POKE POINTER+7,LINE3
  33. 270  POINTER = POINTER + 8
  34. 280  NEXT X
  35. 290  FOR X = 128 TO 191
  36. 300  PRINT CHR$(X);" ";
  37. 310  IF POS(O) > 35 THEN PRINT CHR$(13)
  38. 320  NEXT
  39.